﻿Public Class globalvar
    
    Public Shared userdomain As String


    Public Shared passdomain As String

   

    Public Sub globalvar_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Public Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click

    End Sub

    Public Sub btnglobalvar_Click(sender As Object, e As EventArgs) Handles btnglobalvar.Click

        userdomain = textuserdomain.Text
        passdomain = textpassdomain.Text

        If textuserdomain.Text = "" Then
            MsgBox("Please Insert User Domain", MsgBoxStyle.Exclamation)
            Return
        ElseIf textpassdomain.Text = "" Then
            MsgBox("Please Insert Password Domain", MsgBoxStyle.Exclamation)
            Return

        End If
        textpassdomain.Clear()
        textuserdomain.Clear()


        formtechmenu.Show()
        Me.Close()

    




    End Sub

    Private Sub textpassdomain_TextChanged(sender As Object, e As EventArgs) Handles textpassdomain.TextChanged

    End Sub

End Class